unit oProcessItem;

{
	created   2.3.2010
	author    Michal Varga
	purpose   creates processable objects
                  define TProcessItem as package including
                    aCode as hint for manager
                    aData as object, that has to be processed

	edit list:
                10.3.2010 Michal Varga
                        All processing objects moved to oProcessObjects unit
                8.3.2010 Michal Varga
                        TPedestrianType renamed to TPedestrianData
                        TPedestrianData set as Record (all members set to public, yop I know, it shouldn't be...)
                7.3.2010 Michal Varga
                        added TPedestrianType
                7.3.2010 Michal Varga
                        added TTreeViewProcesing, TEntityProcessing

        comment list:
                6.3.2010 Michal Varga
                        who the hell has created TInteger and TReal with direct access
                        to the paramater?! TString was made this way because of the
                        INPLACE transation in Language manager; it is no longer needed
                        to do it this way (as direct access with ^)
        to do list:
                8.3. Michal Varga
                        need IXMLNode in TProcessingItem
                6.3. Michal Varga
                        remove direct access from Items
}

interface
uses
  Classes, ComCtrls, XMLIntf, oEntity, Generics.Collections ,oProcessObjects;
type

  TProcessItem = class
    private
      aCode: Integer;
      aData: TProcessingObject;
    public
      property Code:Integer read aCode write aCode;
      property Data: TProcessingObject read aData;
      constructor create(paCode: Integer;paData: TProcessingObject);
      destructor Destroy; override;
  end;

implementation

uses
  oPedestriansManager;

{ TProcessItem }

constructor TProcessItem.create(paCode: Integer;paData: TProcessingObject);
begin
  aCode := paCode;
  aData := paData;
end;

destructor TProcessItem.Destroy;
begin
  //process item sa nerusi!!!!!!!!!!
  //aData.Free;
  inherited;
end;

end.
